home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / SHELWRIT.M < prev    next >
Encoding:
Text File  |  1989-09-09  |  1.0 KB  |  45 lines
  1. MODULE SHELWRIT;
  2.  
  3. (* Testet ShellWrite-Funktion *)
  4.  
  5. (*$E MOS *)
  6. IMPORT TOSIO;
  7. FROM InOut IMPORT WriteString, Write, WriteLn, WriteCard, Read, ReadString,
  8.         WriteHex;
  9.  
  10. IMPORT GEMEnv, AESMisc, Directory;
  11.  
  12. VAR s,s2: ARRAY [0..255] OF CHAR;
  13.   handle: GEMEnv.DeviceHandle;
  14.   i: INTEGER;
  15.   ok: BOOLEAN;
  16.  
  17. PROCEDURE rd;
  18.   BEGIN
  19.     WriteString ('Current path: '); WriteString (Directory.DefaultPath()); WriteLn;
  20.     AESMisc.ShellRead (s, s2);
  21.     WriteString ('Cmd: '); WriteString (s); WriteLn;
  22.     WriteString ('Arg: '); WriteString (s2); WriteLn;
  23.   END rd;
  24.   
  25. VAR ch: CHAR;
  26.  
  27. BEGIN
  28.   GEMEnv.InitGem (GEMEnv.RC, handle, ok);
  29.   
  30.   rd;
  31.   
  32.   WriteString ('ShellWrite...'); WriteLn;
  33.   REPEAT
  34.     WriteString ('Path?'); ReadString (s);
  35.     Directory.SetDefaultPath (s,i);
  36.   UNTIL i >= 0;
  37.   WriteString ('Cmd ?'); ReadString (s);
  38.   WriteString ('Arg ?'); ReadString (s2);
  39.  
  40.   AESMisc.ShellWrite (AESMisc.startAppl, AESMisc.graphicPrgm,
  41.                       AESMisc.gemAppl, s, s2);
  42.   rd;
  43.   Read (ch)
  44. END SHELWRIT.
  45.